home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 September & October / rerun-1988-09-10a.d64 / flipper prg#2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  562 b   |  12 lines
  1. 63000 poke52,32:poke56,32:clr:dims$(34),c(34,2):rem g$,g1$,g,g1,g2,a,b,x,y,i
  2. 63010 poke56333,127:poke1,51:poke781,8:poke782,0:poke88,0:poke89,87:poke90,0
  3. 63020 poke91,215:sys41964:poke1,55:poke56333,129:input"file name";g$
  4. 63030 open3,8,3,g$+".dir,s,r":input#3,g$,g1$:g=val(g$):g1=val(g1$):g2=g1-g+1
  5. 63040 fori=1tog2:input#3,g$,g1$,g2$,g3$
  6. 63050 s$(i)=g$:c(i,0)=val(g1$):c(i,1)=val(g2$):c(i,2)=256*val(g3$):next:close3
  7. 63060 fori=1tog2:open1,8,1,s$(i):poke780,0:sys65493:close1:next:poke648,144
  8. 63070 poke53281,1:print"[147]":poke53281,0:poke648,4:a=56576:b=53272:poke53265,16
  9. 63080 fori=1tog2:wait53265,128:x=c(i,0):y=c(i,1):::::::::::::::
  10. 63090 pokea,x:pokeb,y:next:getb$:ifb$<>"[136]"then63080
  11. 63100 poke53265,27:pokea,199:pokeb,21
  12.